ct_p_table <-
function(data, savePDF = FALSE, ...) {
    n = nrow(data)
    columns = c(0, 5, seq(45, 95, length = 11))

    if (savePDF != FALSE) {
        pdf(savePDF, width = 7.8, height = 11.2, paper = "a4", pointsize = 8)
    }

    plot(0:99,
         seq(0, n, length = 100),
         type = 'n',
         xlab = '',
         ylab = '',
         axes = FALSE,
         ...)

    text(columns[2], n, names(data)[1], pos = 4)

    for (i in 2:12) {
        text(columns[i + 1] + 5, n, names(data)[i], pos = 2)
    }

    for (i in 1:n) {
        text(columns[1] + 5, n - i, i, pos = 2)
        text(columns[2], n - i, data[i, 1], pos = 4)

        for (j in 2:12) {
            text(columns[j + 1] + 5, n - i, data[i, j], pos = 2)
        }
    }

    for (i in 0.5:(n - 0.5)) {
        abline(h = i)
    }

    if (savePDF != FALSE) {
        dev.off()
    }
}
